0 IFA=0THENA=1:LOAD"HELP BASIC*",8,1
1 SYS49152:IFA=1THENA=2:LOAD"BILD",8,1
3 ]C0,0,1:PRINTCHR$(14)+CHR$(8)           :GOSUB800
10 U$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":B$="[194]EFEHLSUEBERSICHT:"
11 H$="[147][200]INWEISE AUF [200]ELP [194]ASIC [214]0.1"
12 PRINTH$:PRINTU$:]@15,10:PRINTB$:GOSUB900
13 GOSUB901:PRINT"[159]]O":PRINTU$:PRINT"[196]IESER [194]EFEHL HOLT EIN MIT '[206][197][215]' GE-    LOESCHTES ";
14 PRINT"[208]ROGRAMM WIEDER ZURUECK, FALS VORHER KEINE NEUEN [214]ARIABLEN FESTGELEGT"
15 PRINT"WURDEN.":GOSUB900
16 GOSUB901:PRINT"[159]]D":PRINTU$:PRINT"[205]IT DIESEM [194]EFEHL KANN DAS [196]IREKTORY    VOM [198]LOPPY";
17 PRINT" MITTEN IM [208]ROGRAMM DURCHGE-  SEHEN WERDEN, OHNE DASS DABEI DAS [208]RO-"
18 PRINT"GRAMMM SELBST VERLOREN GEHT.":GOSUB900
19 GOSUB901:PRINT"[159]]@0-39,0-23":PRINTU$:PRINT"[196]IESER [194]EFEHL BEDEUTET '[208][210][201][206][212][193][212]'."
20 PRINT"[196]AMIT KANN MAN DEN [212]EXT AUF EINER BE-   STIMMTEN [208]OSITION LENKEN."
21 PRINT"[196]IE ERSTE [218]AHL STEHT FUER DIE [211]PALTE UNDDIE [218]WEITE FUER [218]EILE.":GOSUB900
22 GOSUB901:PRINT"[159]]L 0-23":PRINTU$:PRINT"[200]IERMIT KANN MAN DIE ANGEGEBENE [218]EILE";
23 PRINT"   VOM [194]ILDSCHIRM LOESCHEN.":PRINT"[199]UT GEEIGNET FUER '[201][206][208][213][212]':"
24 PRINT"[159]10 [201][206][208][213][212]"+CHR$(34)+"[218]IFFER  (1-9)"+CHR$(34)+";Z":PRINT"11 IFZ<1ORZ>";
25 PRINT"9THENZEILE=PEEK(214)-1:        ]LZEILE:]@0,ZEILE:GOTO10":GOSUB900
26 GOSUB901:PRINT"[159]]CLOSE":PRINTU$:PRINT"[211]CHLIESST ALLE ZUVOR GEOFFNETEN ";
27 PRINT"[198]ILES.":GOSUB900
28 GOSUB901:PRINT"[159]]PRINT#":PRINTU$:PRINT"[196]RUCKT DEN [201]NHALT DES [194]ILDSCHIRMS AUF
29 [153]"EINEN ANGESCHLOSSENEN STR$RUCKER AUF ASCILE4 AUS.
30 PRINT"[196]AS [198]ILE MUSS JEDOCH VORHER GEOEFFNET   WERDEN:[159]"
31 PRINT"10 OPEN1,4:]PRINT#:]CLOSE":GOSUB900
32 GOSUB901:PRINT"[159]]SAVE [193]NF.ADR.[159],[197]NDADR.[159]+1"+CHR$(34)+"[206]AME"+CHR$(34)+",8,1"
33 PRINT""U$:PRINT"[213]M GANZ BESTIMMTE [194]EREICHE ZU SPEICHERN IST DIESER [194]EFEHL SEHR";
34 PRINT" HILFSBEREIT.":PRINT"[211]OMIT KOENNEN [199]RAFIK ODER [211]PRITES VOM   [208]RO";
35 PRINT"GRAMM AUS, OHNE VIEL [193]UFWAND         GESPEICHERT WERDEN.":GOSUB900
36 GOSUB901:PRINT"[159]]C0-255,0-255,0-69":PRINTU$:PRINT"[205]IT DIESEM [194]EFEHL ";
37 PRINT"WERDEN DIE EINZELNEN  [198]ARBEN GESETZT.":PRINT"[196]IE ERSTE [218]AHL STEHT ";
38 PRINT"FUER DEN [210]AHMEN,":PRINT"DIE [218]WEITE FUER DEN [194]ILDSCHIRM, UND DIE ";
39 PRINT"DRITTE [218]AHL FUER DIE [218]EICHENFARBE.":GOSUB900
40 GOSUB901:PRINT"[159]]R   ODER[159]   ]B   ODER   [159]]RB":PRINTU$
41 PRINT"[196]AMIT LASSEN SICH EFFEKTVOLLE [196]EMOS AUF-BAUEN:"
42 PRINT"[159]R STEHT FUER [210]AHMEN":PRINT"[159]B STEHT FUER [194]ILDSCHIRM"
43 PRINT"10 FORT=1TO500:]RB:NEXTT:]C0,0,1":PRINT"[196]EMONSTRATION 'D'":]WAIT"D"
44 FORF=1TO500:]RB:NEXTF:]C0,0,1:GOSUB900
45 GOSUB901:PRINT"[159]]WAIT"+CHR$(34)+"ZEICHEN";CHR$(34):PRINT""U$
46 PRINT"[215]ARTET AUF [196]RUCK EINER BESTIMMTEN [212]ASTE.[196]ABEI KOENNEN ALLE [218]EICHEN";
47 PRINT" MIT [193]USNAHME VON '[211][208][193][195][197]' VERWENDET WERDEN.":GOSUB900
48 GOSUB901:PRINT"[159]]GOTO [214]ARIABLE":PRINTU$:PRINT"[196]IES IST EINE [199]OTO-[193]NWEISUNG IN";
49 PRINT" DER DIE [193]NGABE VON [214]ARIABLEN ERLAUBT IST:"
50 PRINT"10 GETH$:IFVAL(H$)<1ORVALH$>9THEN10":PRINT"11 ]GOTO VAL(H$)":GOSUB900
51 GOSUB901:PRINT"[159]]MP,[211]PRITEBLOCK":PRINTU$:PRINT"[196]RUCKT DAS [205]USTER ";
52 PRINT"EINES [211]PRITES AUF DEM [194]ILDSCHIRM.":PRINT"[196]AS IST EIN SEHR BRAUCH";
53 PRINT"BARER [194]EFEHL UM  [211]PIELE ZU DURCHLEUCHTEN, ODER UEBERHAUPT[211]PRITES ";
54 PRINT"AUF EINEM [196]RUCKER AUSZUGEBEN:":GOSUB902:GOSUB900:GOSUB901
55 PRINT"[159]]F [193]DR.[159],0-147 UND 178-255":PRINTU$:PRINT"[215]ER EIN [211]PIEL HAT, IN DEM ES VIEL ZU
56 [153]"SCHWIERIG IST, EINE (null)PIELSTUFE WEITER ZUKOMMEN, DER KANN SEINEN ";
57 [153]"CHR$EGNER EINFACH  AUSLOESCHEN:":[153]"(null)UERST STARTET MAN LEFT$ELP PEEKASIC,
58 PRINT"DANACH LAEDT MAN EIN [211]PIEL, UND DURCH-  SUCHT ES MIT[159] ";
59 PRINT"]MP,[193]DRESSE NACH GEG-      NERISCHEN [211]PIELFIGUREN. ";:GOSUB900:GOSUB943
60 PRINT"[147]]MP,832":]MP,832:]@25,2:PRINT"[215]ENN MAN WIE":]@25,3:PRINT"HIER EINEN
61 ]@25,4:[153]"CHR$EGNER GE-":]@25,5:[153]"FUNDEN HAT,":]@25,6:[153]"SO KANN MAN"
62 ]@25,7:[153]"IHN MIT":]@25,8:[153]"']F832,0'":]@25,9:[153]"LOESCHEN."
63 [141]900:]L0:[153]"]F832,0":[141]900:]L0:]@0,0:[153]"]MP,832"
64 ]F832,0:]MP,832:[141]900:[141]80
70 [143]   GOSUB900
71 [141]901:[153]"OPEN]POKE,1024,2,,,":[153]U$:[153]"STR$IES IST EIN ENDLOSER (null)OKE-PEEKEFEHL.
72 GOSUB900:GOSUB901:PRINT"[159]]ORNOT,,,":PRINTU$:PRINT"[196]IES IST EIN ENDLOSER [194]EFEHL UM
73 [153]"EIN BESTIMMTES PEEKIT EIN ODER AUSZU-      SCHALTEN."
74 [153]"CHR$UT FUER CHR$RAFIK:"
75 [153]"11 FORI=1TO2
76 PRINT"10 ]ORNOT,53265,32,53272,7:WAIT"+CHR$(34)+"W"+CHR$(34)+":NEXTI
77 [141]900:][176][168],53265,32,53272,7:[141]900:][176][168],53265,32,53272,7
78 [141]901:[153]"OPEN]P 0-65536":[153]U$:[153]"STR$IESER PEEKEFEHL DIENT ZUR (null)AUSE."
79 [153]"1 = 14 TI":[141]900:[137]90
80 [141]901:[153]"OPEN]SPC((null)PRITEBLOCKADRESSEOPEN)":[153]U$:[153]"(null)ENN (null)IE (null)PIELE SCHREIBEN,
81 PRINT"[211]PIELE VERAENDERN, ODER GANZ SCHNELL    UND OHNE VIEL [193]UFWAND EINEN [211]PRITE
82 [153]"ZAUBERN WOLLEN, DANN GEHT DAS MIT LEFT$ELP  PEEKASIC GANZ SCHNELL UND EINFACH.
83 PRINT"[211]IE BENOETIGEN NUR DIE [193]DRESSE IN DER   [211]IE DAS [205]USTER ABLEGEN UND EIN";
84 PRINT" BISCHEN  [198]INGERSPITZENGEFUEHL.":PRINT"[205]IT DIESEM [194]EFEHL, DORT OBEN ";
85 PRINT"KOENNEN [211]IEBLITZSCHNELL EIN [205]USTER VOM  [194]ILDSCHIRM ZUM [211]PRITE SCHICKEN.
86 [153]"ATNUF DER FOLGENDEN (null)EITE KOENNEN (null)IE ES  NUN AUSPROBIEREN."
89 [141]900:[137]911
90 [141]901:[153]"OPEN]END":[153]U$:[153]"(null)IT DIESEM PEEKEFEHL WIRD DIE VALRWEITERUNG
91 PRINT"AUSGESCHALTET."
92 PRINT"[206]OCH MAL VON VORN (J/N):"
93 GETK$:IFK$=""THEN93
94 IFK$="J"ORK$="[202]"THENRUN
95 PRINT"[147]":]@18,10:PRINT"[197][206][196][197]":FORT=1TO255:]RB:NEXT:FORT=1TO255:]R:NEXT
96 SYS49152:END
800 SYS49152:PRINT"READY.":FORT=0TO35:]@T,15+(3*SIN(T/(null))):PRINT"DEMO"
801 ]C0,0,T:NEXTT:FORT=1TO555:]R:NEXT:GOSUB900:]C0,0,1:PRINT"[147] 18 NEUE [194]EFEHLE"
802 PRINT"[211]IE HABEN ES HIER MIT EINEM INTELIGENTEM[208]ROGRAMM ZU TUN!":]P2
803 PRINT"[215]ARUM ???":]P4:PRINT"[200]ELP [194]ASIC IST EINE [197]RWEITERUNG DIE ES  IN ";
804 PRINT"SICH HAT.":]P4
805 PRINT"[196]ENN SIE KANN AN JEDER X-BELIEBIGEN     [211]TELLE IM [211]PEICHER STEHEN."
806 ]P2:PRINT"[196]IESE [197]RWEITERUNG FUEHRT KEINE DIREKTEN [211]PRUENGE AUS UND ENTHAELT ";
807 PRINT"KLEINE SELB-  STAENDIGE [205]ODULE, DIE MAN BELIEBIG      ERWEITERN KANN.
808 [153]"LEFT$ELP PEEKASIC (null)0.1 BENUTZT DIE (null)PEICHER-   ZELLEN 251-254.":[141]900
809 [153]"LOADSTR$AS INTELIGENTE DER VALRWEITERUNG IST DER KLEINE (null)USATZ MIT DEM DER ";
810 [153]"(null)EIGER 776-777AUF DIESE VALRWEITERUNG GESTELLT WIRD:"
811 [153]": CLC":[153]": LDA 20":[153]": ADC #16":[153]": STA 776":[153]": LDA 21
812 PRINT": ADC #00":PRINT": STA 777":PRINT": RTS":PRINT": AB HIER STEHT DAS [208]ROGRAMM.":GOSUB900
813 PRINT"[147][196]IESEN [212]RICK KANN MAN AUCH FUER         [208]ROGRAMME, WELCHE IM [201]NTERRUPT
814 [153]"LAUFEN, BENUTZEN.":]P3
815 [153]"STR$ADURCH FAELLT DAS LAESSTIGE RECHNEN UNDAENDERN DER (null)EIGER WEG."
816 [153]"(null)OR ALLEM WENN MAN DAS (null)ROGRAMM DANN    VERSCHIEBEN MOECHTE:":[153]"828: SEI"
817 [153]"829: CLC":[153]"830: LDA 20":[153]"832: ADC #18   CLOSE828+(18+0*256)=846
818 PRINT"834: STA 788":PRINT"837: LDA 21":PRINT"839: ADC #00"
819 PRINT"841: STA 789":PRINT"844: CLI":PRINT"845: RTS"
820 PRINT"846: AB HIER KANN EIN [208]ROGRAMM STEHEN,       DAS MIT JMP 65593 BEENDET";
821 PRINT" WIRD.":GOSUB900:T=0:  RETURN
900 ]@0,24:PRINT"[215]EITER MIT 'W'":POKE198,0:]WAIT"W":RETURN
901 T=T+1:PRINTH$:]@0,3:PRINTBN$;T:PRINTU$:RETURN
902 ]@0,23:PRINT"[196]EMO MIT 'D'":]WAIT"D":PRINT"[147]]MP,832":]MP,832:]@0,23
903 PRINT"[193]UF DEM [196]RUCKER (J/N)"
904 GETO$:IFO$=""THEN904
905 ]L23:IFO$="J"ORO$="[202]"THENOPEN1,4:]PRINT#:]CLOSE
906 RETURN
911 PRINT"[147][193]LS [194]EISPIEL WOLLEN WIR NUN EIN [211]PRITE  ERSTELLEN, DER SEIN [205]USTER ";
912 PRINT"AUS [193]DRESSE  13*64=832 NIMMT."
920 PRINT"[196]AZU MALEN [211]IE JETZT AUF DEN NICHT MAR- KIERTEN [198]ELD EINE [194]ILD.
922 [153]"(null)ERWENDEN (null)IE BEIM (null)EICHNEN RUHIG ALLE  (null)EICHEN.":[141]900:[153]"LOAD"
923 [141]940:]@25,0:[153]"(null)URUECK MIT '_'":[153]"CLRTO";
926 [161]K$:[139]K$[178]""[167]926
927 [139]K$[178]""[167][153]K$[170][199](13);
928 [139]K$[178]"LOAD"[167]923
929 [139]K$[178]"_"[167]931
930 [153]K$;:[137]926
931 ]C0,0,2:[141]940:[153]"OPEN]F832,0:]SPC(832): <RETURN> ":]@0,1
932 [161]K$:[139]K$[179][177][199](13)[167]932
933 ]F832,0:][166]832)
934 [141]900:]C0,0,1:[151]53269,0:[153]"LOAD":[142]
940 [129]H[178]1024[164]1050:[151]H,224:[130]H
941 [129]H[178]1048[164]1965[169]40:[129]J[178]H[164]H[170]15:[151]J,224:[130]J:[130]H:]F1960,224
942 ]F1944,224:]F1904,224
943 ][151],53248,255,53249,165,53269,1,53271,1,53277,1,2040,13:[142]